home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Developers / PSPad 4.5.2 / pspad452inst_en.exe / {app} / Script / VBScript / New1.vbs < prev    next >
Encoding:
Text File  |  2006-08-30  |  877 b   |  29 lines
  1. ' vytvo°φ novΘ okno a zkopφruje cel² text z prvnφho okna
  2. ' ulo₧φ novΘ okno do souboru C:\SAMPLE.TXT
  3. Const module_name  = "sample"         'toto jmΘno musφ b²t unikßtnφ
  4. Const module_desc  = "Sample script"  'popis modulu
  5. Const module_ver   = "0.001a"         'verze modulu
  6.  
  7. Sub Demo1
  8.   set obj = NewEditor()
  9.   ftpConnect("PSPad_com")
  10.   ftpCommand("PWD")
  11. End Sub
  12.  
  13. Sub Demo2
  14.     set obj = NewEditor()
  15.     ftpConnect("PSPad_com")
  16.     ftpCommand("CWD /public_html/www/include/page")
  17. '    if ftpUploadFile("C:\temp\button.gif", "button.gif") then
  18. '        ftpDisconnect
  19. '    end if
  20. End Sub
  21.  
  22. ' jmΘno INIT je povinnΘ. tato funkce je volßna automaticky p°i inicializaci skriptu.
  23. ' pou₧φvß se hlavn∞ pro vytvß°enφ polo₧ek v menu
  24. Sub Init
  25.   addMenuItem "priklad - otevreni souboru z FTP","", "Demo1"
  26.   addMenuItem "priklad - odpojeni FTP","", "Demo2"
  27. End Sub
  28.  
  29.